Imports OMANE.Common.UI
Imports System.Collections.ObjectModel
Imports System.Windows
Imports Infragistics.Windows.Chart
Imports System.Windows.Controls
Imports System.ComponentModel
Imports PTIC_GestionBDD
Imports System.Collections.Specialized
Imports Microsoft.Practices.Prism.Commands


Public Class VMDashboard
    Inherits VMSectionBase

    Dim _Definition As VMDashboardDefinition

    Sub New(ByVal def As VMDashboardDefinition, ByVal Filter As String, Optional ByVal donothing As Boolean = True)
        Me._Definition = def
        Title = def.Title
        Me.Filter = Filter
        If donothing Then Return

        For Each z In Me._Definition.Zones
            Try
                z.GraphDefinition.DetailInstance.Banque = Filter
            Catch ex As Exception

            End Try
        Next
    End Sub

    Public ReadOnly Property Definition As VMDashboardDefinition
        Get
            Return _Definition
        End Get
    End Property

    Public Property Filter As String

    Public Sub Refresh()
        _Definition.ReCalculate()
    End Sub

End Class
